home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / pc / program / ad / mod04 / vmapp / 00019.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  363 b   |  17 lines
  1. on mouseUp
  2.   if the machineType = 256 then
  3.     set skObj to scikids(mnew)
  4.     if objectp(skObj) then
  5.       skObj(mSetRect, 0, 0, 640, 475)
  6.       set temp to the frame
  7.       go("pVal")
  8.       skObj(mSetOrientation, 1)
  9.       skObj(mStageToDitheredPrint)
  10.       go(temp)
  11.       skObj(mdispose)
  12.     end if
  13.   else
  14.     printFrom(label("pVal"), label("pVal"))
  15.   end if
  16. end
  17.